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АПЛ КЛУБ Том 2, № 2, 1997 
Информация от Правления Рос АПЛ 


O конференции в Торонто 18-20 августа 1997 


В начале 1997 года на сервере торонтского отделения SIGAPL наконец появилась 
информация о том, что традинионная международная АПЛ-конференция состоится H в 
1997 году. Судя по этой информации, Торонтский SIGAPL  peunur взять на себя все 
хлопоты по организации этой конференции. По-видимому, у обычных организаторов - 
SIGAPL of ACM - возникли какие-то трудности. 

Итак, объявлено, что конференция AIUI97 состоится в Канаде, штат Онтарио, 
город Торонто, Ryerson Polytechnic University, Rogers Communications Centre 18-20 
августа 1997 года. Приглашаются все, кто интересуется АПЛ. J и другими языками, 
ориентированными на обработку массивов. 

Для участия конференции вы должны связаться по e-mail с организаторами 
конференции (см. ниже). В принципе, надо бы было еще выслать оргвзнос в размере 
$120, но, по-видимому, российские участники могут заплатить оргвзнос на месте 
(поскольку в России не принимают денежные переводы на почтовый адрес за границей). 

Более полную информацию можно получить по адресу 
hitp//wsew.sigapl mtnlake.com/sigapl/welcome.htm] в Internet или в Правлении РосАПЛ, 
По Internet можно даже получить стандартный буклет, посвященный этой конференции, 
предварительно "скачав" специальную программу Envoy Viewer. 

Организаторы конференции особо отмечают дешевизну предстоящей 
конференции. Оргвзнос составляет всего $120 (намного меньше, чем на прелыдущих 
конференциях). Цены в гостиницах - около $45 (надо полагать, что при желании можно 
найти что-нибудь подешевле). 

К настоящему времени уже обнародована предварительная программа 
конференции: 


|окладчик. Тема 

| Dyadic Systems OLE w АПЛ 

Dyadic Systems. Динамические функции в АПЛ 

Dyadic Systems АПЛ-вычисления в режиме "клиент/сервер" 

Dyadic Systems. Программирование ТСРЛР соединений 

Insight Systems. ODBC a АПЛ 

Eric Iverson - ISI / John Baker | Вычислительный сервер J/OLE 

Timo Laurmaa TCP/IP, HTML и АПЛ 

Cliff Reiter - Lafayette College |7-искусство: Хаос и симметрия. 

Chris Burke Strand Графика n 3 

Chris Burke - Strand Функциональная размерность в J для АПЛ-истов 

Eric lverson - ISI Java и Ј 

Mike Jenkins - МАС Курс Nial 

Mike Jenkins - NIAL Использование Nial для ҰеБ-приложений 

Mike Jenkins - ММАС | Встроенные Ава приложения 

Chris Lee - SoftMed Классы, определяемые пользователем в APL/Windows- 
| программировании 

Chris Lee - SoftMed Объектно-ориснтированные метолы в APL/Windows- 
программировании 

Eric Lescasse - Uniware Тренажер APL* Win, объектно-ориентрованное 
| программирование, MIDI, OCX ит.д. 

Richard Levine Введение в J для АПЛ-истов 

Richard Levine Один АПЛ-инструментарий 

Ed Shaw - APL Group Электронная коммерция, электронный обмен 
данными и Internet. 
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B.Amos G.Disney, D.Sorrey - | Обмен данными между Java-annerawn H 


Reuters юрилическими АПЛ-приложениями 

Andra Buzin - RusAPL Рекуррентный оператор в АПЛ 

Murrey Eisenberg - U of J против Mathematica 

Massachusetts J 

Tohn Heinmiller - Chalke / Eric | РТ57000: История успехов АПЛ 

Baeler: - APL2000 

John Henmiller - Chalke Составленис финансовых отчетов с помошью АПЛ и 
PTS 

Сагу Mooney - Actel, et al. Для чего хороши АПЛ и J? 


Dennis Paproski- Reuters | APL IDE: Windows-imrepdetic ana АПЛ-приложений 
на мейнфреймах. 

Keith Smillie - U of Alberta — | Компьютерное конструирование строения волн 
Soliton Assoc. АПЛ-система распознавания кодов. 

Soliton Assoc. TimeSquare 


He копференции булут прохедить презентации фирм APL2000. Dyadic System Ltd., 
Soliton Associates Ltd. 


Организаторы конференции преллагают следующие адреса лля контактов: 
Richard Procter, chair (rjp@interlog.com] 

Eric Granz, finances [egranz@widow.aracnet net} 

Charles Chandler. program [chan@hookup.net} 

Daniel Baronet, program (danb@vir.com] 

Gaetan Godin, publications [gaetgodi(z godin.on.ca] 

Калау MacDonald, publications [randy@godin.on.ca} 

Larry Moore, venue [lbm@soliton.com] 

Tim Bishop, actuarial (tim. bishop watsonwyatt.com] 

Richard Levine. software [rlevine aracnet.net] 


Сравнительные характеристики современных версий АПЛ 
Семинар 13 апреля 1997. Москва 


Семингр состоялся в Вычислительном центре РАН. В семинаре приняли участие: Бузин 
А.Ю. Зуева A.B.. Кононов A.M.. Мешков Д.А.. Нафтулин H.C., Соколов B.B.. Ткачев 
ALE. 

Участники семинара поделились своими впечатлениями от работы C двумя разными 
версиячи АПЛ - от Dyalog и or APL2000. Также были обсуждены вопросы, связанные с 
получением информации об АПЛ через Интернет 

Обшее заключение от обмена мнениями по поводу двух версий АПЛ следующее: фирма 
АРІ 000 уделяет больше внимания вопросам программистского интерфейса, a Dyalog - 
развитию языка как такового. В Оуаю5АПЛ присутствуют такие языковые и системные 
элементы, которых нет в АРИ. Это в первую очерель относится к возможностям 
иерархической организации рабочих областей. оператора композиции и 
функционального присваивания. 
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реводы 


Введение в функциональное программирование на J (часть 1). 


Howard A. Peelle. Introduction to Functional Programming in J (Part 1). Vector, Vol.13 No.1, 
pp. 20-29) 
‘перевод Нафтулина И.С. 


Это первая из трех предлагаемых Вашему вниманию публикаций. В первой части 
представлены основные принципы J в рамках стратегии функционального 
программирования. с примерами направленными на разработку программ, 
тенерирующие простые числа. Во второй части (будет опубликована в следующем 
выпуске) будет продемонстрировано как непосредственно разрабатывать программы в 
J-crune, a также будет предложена разработка программы вычисления простых чисел на 
более высоком уровне. В третьей части (в последующих выпусках) будут представлены 
другие варианты аягоритмов для итераций, рекурсий и операций с массивами, и в 
заключиние будут представленны мета-стратегии для разработки пакета программ и их 
документирования. 


Motcaume в терминах массивов. 


Прежде чем что-либо програмировать, надо понять, как будут формализованы 
данные для решения конкретной задачи. Этому этапу следует присвоить номер 0, чтобы 
показать, что он всегда присутствует именно перед началом реального кодирования. 
Нулевой этап включает обдумывание вопроса какие структуры наилучшим образом 
подходят для обработки рассматриваемых данных и формирования результата. В J, 
структуры данных это- массивы, т.е. отдельные величины (скаляры), списки (вектора) 
таблицы (матрицы), массивы трехмерные и более высокой размерности. Мыслить в 
терминах массивов- значит планировать обработку данных как единых массивов (где 
это возможно). В этой статье мы будем использовать в основном списки. Список чисел 
изображается с помощью пробела между ними. Например: 


235711 МВ. Список целых чисел. 


Другие виды чисел (в этой статье в них нет нужды)представляются следующим 
образом: отрицательные числа представляются с помощью подчеркивания: 3. 
Действительные числа используют десятичную точку и лидируюший нуль, если 
необходимо, например: 0,5. Очень маленькие и очень большие числа представляются в 
научной нотации, например: 1е6 для одного миллиона. Для комплексных чисел 
используется инженерная нотация, например: 34 для 3 плюс 4 умноженное на 
квадратный корень из -1. 

Заметим, что комментарии ( им предшествует NB.) могут быть использованы для 
объяснений. Символьный список представляется с помощью одиночных кавычек. 
Например: 


"primes" NB. Список символов. 
Таблица изображается в виде прямоугольника из строк и столбцов. Например: 
2345 NB. Числовая таблица. 
6789 
1010 10218 


(Способы создания таблиц будут описаны в частях II и Ш). Заметим, что в J нет 
необходимости декларировать и указывать тип данных. Данные различных типов могут 
быть размещены вместе в прямоугольной рамке, изображающей массив. Например: 


ARA KIYE Том 2, № 2, 1997 


primes [2 3 $ 7 
п 


МВ. Список двух прямоугольных элементов. 
МВ.Каждый из них содержит другие элементы. 
Это позволяет представлять непрямоугольные массивы (см.{1}). 


51. Выбор примитивных функций 


Первый этап программирования в J - это выбор примитивных встроенных 
функший необходимых для рассматриваемой задачн. J содержат свыше сотни 
примитивных математических функций. Сюда входят: арифметические функции: 
сложение, вычитание, умножение, деление, возведение в степень; функции сравнения; 
равно.неравно, меньше чем, больше чем и T.A; логические функции и, или, не и т. 
ставдартные функции такие, как квадратный корень, случайные числа. целая часть; 
весьма полезные функции: возведение в квадрат, приращение, деление попалам и 
фикторнал: такие сложные функции, как обращение матрицы и матричное деление для 
линейной алгебры H статистического анализа; функции перестановки и сортировки; 
тригонометрические и круговые функции; и множество других функций для обработки 
массивов. форматированного вывода, комплексных вычислений и т.п. 

В этой статье приведены около дюжины примитивных функций языка J. ( см. [1] 
для углубленного ознакомления). Заметим, что символы могут быть использованы сами 
по себе или в сочетании с точкой (.) или двоеточием (:) для обозначения различных 
функций: * (умножение), или *. (логическое и), или *: (возведение в квадрат). 

В J функции называются “глаголами”, и они используют "имена 
существительные" (данные) или “местоимения” (переменные) в качестве аргументов. 
Можно изучать поведение любого глагола, вводя выражения интерактивно, при этом 
отступ 2ля ввода выдерживается автоматически и компьютор печатает результат на 
следующей строке. Например, рассмотрим глагол “остаток” (:), который использует 
существительные слева и справа: 


3:9 МВ. 3 "остаток" 9 
0 NB. результат 0 
3:10 МВ. 3 "остаток" 10 
1 МВ. результат 1 
3:11 
2 
3:12 
0 
Эти выражения можно было записать с использованием списка: 
39 10 11 12 NB. 3 “остаток “ для списка 
0120 NB. результат - список 


Более длинный список показан ниже: 


3:0 12345678910 11 12 
0120120120120 
Примитивный глагол j. (называемый “uembie”) весьма удобен: 
ja NB. неотрицательные целые числа до 13 
9123456789 0 И 12 
Эти глаголы можно использовать вместе: 
3:313 МВ. остаток от целых чисел от 0 до 12. 
0120120120120 
Заметим, что здесь : является “идиадическим” глаголом (бинарная функция), 
который, подобно сложению (+). использует два входа (аргумента) (злесь скаляр слева, 
а список справа); a “целыє" (j.) являются “моналическим” глаголом (унарная функция) 
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который использует один вход (аргумент) справа - подобно -4, или V4, или fix) в 
общепринятых обозначениях. Все глаголы в J являются или монадическими, или 
диодическими. 

Часто один и TOT же символ используется, как в монодическом. так н 
днодическом варианте. Например: 7 - -4, т.е. 7 минус отрицание 4. 

Далее заметим, что самый правый глагол выполняется первым, чтобы обеспечить 
вход лля следующего глагола. Например, для вышеупомянутого примера, “отрицание” 
раньше “минуса” 7 - (74), или (j.) раньше () в 3 : 0.13). 

Фактически в действует следующее общее правило: каждый глагол использует 
результат выражения, записанного справи. Это устраняет необходимость введения 
нерархми глаголов такого, как (“экспонента приоритетнсе умножения и деления, 
которые в свою очередь приоритетнее сложения и вычитания"), но при этом возникают 
возражения (см. [2], где обсуждается реакция учителей математики на J нотацию). Тем 
не менее выход можно найти, используя круглые скобки, чтобы указать обычный 
порядок операций, как показано в этой статье. 


5 2. Выбор примитивных операторов 


Кроме примитивных функций (глаголов), в Ј применяются операторы, которые 
модифицируют глаголы. С помощью операторов можно эффективно создавать новые 
глаголы, которые дают возможность программировать задачи более непосредственно. 
Например, “вставить” (Insert) (/) есть оператор “наречие”, который вставляет глагол 
между последовательными элементами массива. Этот оператор использует глагол в 
качестве левого входа. Например: 

+12357 11 МВ. ("Сложение - Вставить")“ріуѕ- Insert” список 


28 NB. сумма 


Здесь глагол + является входом для f, 

Два символа + / вместе создают новый глагол (называсмый “суммой”), который 
воздействует на создание числа 2+3+5+7+11 и даст в результате 28. Программисты 
могут сравнить, как это деластся в других языках программирования. Заметнм, что J 
позволяет прямо использовать оператор вместо итераций с явным контролем за 
структурой. (См. часть 3 с дальнейшими обсуждениями). 

Другие диадические глаголы также можно использовать вместе c "Insert". Таким 
образом программист может создавать новые глаголы. Например: 

4235711 


2310 NB. Произведение 


В действительности это просто повторение * столько раз сколько необходимо, 
чтобы вставить * между всеми элементами входа и затем вычислить 2*3*5*7*|] как 
2%(3(5* "1. 

Другие операторы будут обсуждаться по мере необходимости далее (полный 
список операторов приведен в [I] }. 


S3. Используйте параллельные вычисления 


Естественная стратегия программирования на J подразумевает “параллельные 
вычисления", при которых глагол автоматически воздействует на каждый элемент 
массива. Обратимся к примеру глагола “остаток” (Remainder) () из $1: 

3191011 12 ` эквивалентен (3:9), (3 : 10), (3 : 11), (3 : 12), где скаляр слева 
взаимодействует с каждым числом справа. В общем случае, глагол одновременно. 
(параллельно) применяется к парам соответствующих элементов из левого и правого 
вхолов. Например, когда оба входа имеют одинаковое число элементов: * 
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1234: 9101112 NB. (1:9). 2 210). (3: LI), (4:12) 
$020 NB. Параллельное вычисление остатков 
Это относится так же и к другим примитивным (встроенным) глаголам, как 


например: 
£23449 10 1112 


10 12 1416 МВ. Параллельные суммы 
1234491011102 NB. (1 # 9), (2810), 38 11), (4 12 
9 10 10 1111 11.12 12 12.12. NB. Параллельное копирование 


Здесь глагол # (Copy - копирование) созлает копии каждого элемента. Этот 
глагол особенно полезен для выборки элементов: 
011010101#1 234567 
зат 


S 4. Обозначайте вспомогательные функции и переменные 


Программисты часто вводят вспомогательные функции (программы) н 
переменные для решения своих программистских задач. Ј использует =. для локального 
H =: глобального присвоения значений переменным (называемым “местоимениями“). 
Hanpi 

ps: NB.p-uemie числа 0 1 23...11 


Чтобы вывести на экран содержимое объявленой переменной. достаточно 
напечатать ее имя: 


р МВ. что находится в p? 
9123456789 10 1 

Объявленая переменная. конечно, может быть изменена. например с 
использованием простейшего глагола "increment" (шаг увеличения) > : , чтобы добавить 
1 к кажлому элементу списка: 


>:р NB. р является функцией “inkrement™ 
р NB. что содержится вр? 
123456... 12 NB. новое значение 


Если запросить переменную. которой не было присвоено никакого значения, то 

это приведет к сообщению об ошибке: 
P NB. что содержитсявР? 

value error NB. в P He имеется никаких значений 

Имеется более дюжины всевозможных сообщений об ошибках, включая "domain 
error” (ошибка области определения), "syntak error" (синтаксическая ошибка) и т. д. 

1 сообщает об ошибка, когда он не может интерпретировать выражение, но 
позволяет Вам ввести немедленно другое выражение. 

Новые функции (“pro-verbs” - составные глаголы) в J определяются очень просто 
с помощью = . или = : , что означает “есть”. Например. Вам необходимо использовать 
имя вместо символа для какого-либо глагола: 

Remainder =. NB. Remainder есть : 

Теперь это имя можно применить вместо символа : , например: 

3 Remainder 12 NB. тоже самое, чтои3: 12 


à 

Это имя можно использовать. как функцию в любом выражении : 
(3 Remainder 12) =0 МВ. (3: 12) равно 0? 

1 NB. Да 
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Заметим, что результат функции "Equal" -равно (=) равен или 1 {значение 
“истина”) или 0 (“ложь”). 

Другие функцин отношений, такие как “меньше чем” (<) или "больше чем” (>), 
так же возвращает булевый результат. (См. [1] ). 

Некоторым программистам может понадобиться использовать имя "mod" 
(сокращение по модулю) с переставленными входами. (Например, 12 по модулю 3 ). Это 
можно сделать следующим образом: 

Mod =.:- NB. Мод есть Remainder - Commute 


Символ ~ это наречие (называемое Passive или Commute), которое меняет 
местами входы глагола. Например: 
12 mod 3 МВ. 12: ~ 3 (тоже самое, что 3 : 12) 
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Рассмотрим глагол “копироветь” (4) из предылущего параграфа, который 
использует 0 или 1 слева для выбора элементов из массива, Можно использовать #-. 
чтобы выбрать элементы когла мули и единицы расположены справа. Удобно 
приписать этому глаголу имя: 

1=.#- NB. If есть Copy-Commute (копировать-заменить) 


Теперь можно использовать это имя как вспомогательную функцию: 
1234567 МОТТОТОТ МВ. Выбрать числа, для которых If | 
2357 


£ 5. Составляйте (определяйте) собственные функции 


J обеспечивает возможность создания традиционных многострочных программ C 
переменными и управляющими конструкциями (см. часть 3). Здесь мы создадим 
короткие (однострочные) программы без управляющих конструкций с помошью 
композиции функций. Это является ядром стратегии программирования в J. Более того, 
J позволяет определять программы ("pro-verb") без явных ссылок на входы или 
переменные. Это иногда называют “чистое функциональное программирование". 

J предлагает несколько типов функциональных композиций. Начнем с оператора 
(@), называемого Atop (наверху), присоединяющего один глагол к другому - подобно 
математической функции. Например, создалим простой вспомогательный глагол для 
генерации положительных целых чисел: 


Pos =. >: @] NB. Pos есть inkrement Atop Integers 
NB. (Дополнительные пробелы добавлены для лучшей 
читаемости) 

“Atop” (@), есть оператор конъюнкции (conjunction), который требует два 
глагольных входа. Он использует глагол слева (здесь >: ), для непосрелственного 
воздействия на результат работы глагола справа (здесь ј.), т. e. Increment после Integers. 
Теперь выполним новый глагол с одним входом: 


Роз 12 NB, Положительные целые числа от 1 до 12 
123456789101 12 


Другая удобная форма составления функций называется в J “вилка” (fork) 
используется, когда три глагола записываются ввиле отдельной последовательности. 

Глагол в серелине использует результат глаголов находящихся слева и справа. 
Например, (> : * < : ) есть вилка, которая выполняет умножение в зависимости от 
результата Increment и Decrement. ( < : является примитивным глаголом Decrement, 
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который вычитает единицу из его входа). Придадим этой функции ветвления следущее 
имя: 


Fo >it: NB. F суть Increment Times Decrement 
Испытаем с одним входом: 


Е=4 МВ. (>:4)*(<:4) или 5 * 3 
15 
В общем случае для одного входа у, ветвление 


(глаголб глагол! глагол2) у 
эквивалентно (глагол0 y) глагол! (глагол? у), это можно показать на диаграмме: 


лагол! 
гхаголо глагол2 
y y 
Ветвление можно использовать C двумя входами. Например: 
Е=.+*- МВ. Е является Plus Tinus Minus 
7Е4 МВ. (7+4) * (7-4) 


В общем случае для двух входов х и у ветвление 
х(глаголо глагол! глагол2) y 
эквивалентно (х глаголо y) глагол! (x глагол? у). Диаграмма: 
глагол! 
глаголб глагол? 
s aly 


Теперь рассмотрим вилку (© = 0: ), которое отличает глагол “равно” { Equal) с 
результатами “остаток” и “ноль”. ( : является глаголом - константа результат которого 
есть ноль- 0 ). Присвоим этому ветвлению имя: 


Divides =.:= 0: NB. Остаток равно нуль. 
Эта программа использует два входа. Например: 
3 Divides 12 NB. (3: 12) = (30: 12) или (3:12) = 0 


1 МВ. Истина (0 = 0) 


Она работает так же со списочным входом: 


(pos 12) Divides 12 МВ. (123... 12:12) 70 
111101000001 МВ. Указывает на делимость элементов. 


Давайте определим другую программу, использующую вилку внутри вилки: 

Divisible = . Pos Divides] МВ. Divisible есть Pos Divides Input 

Заметим, что | является примитивным глаголом, который возврашает свой 
собственный вход. Эта программа использует олин вход: 


Divisible 12 NB. (Pos 12) Divides 12 
111101000001 
Глаголы - вилки могут объединяться в более сложные последовательности. 
Нижепривеленная программа использует другую "вилку": 
Divisors = . Pos If Divisible NB. делитель 
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Это эквивалентно следующему определению, в котором самая правая 
последовательность из трех глаголов объединястся с первым глаголом: 
Divisors = .PoslfPosDivides] NB. Divisors есть Pos If 
NB. (Pos Divides Input) 


(Cw. часть 2, где объясняется как отразить на экране структуру такой 
программы.) Примеры использования: 


Divisors 12 NB. (Pos 12) If ((Pos 12) Divides 12) 
12345612 NB. Делители для {2 

Divisors 13 
113 МВ. Делители для {3 


Эта программа является новым глаголом, который может быть объединен с 
другими глаголами. Например, примитивный глагол # Tally (число элементов) ( # 
используется с одним входом) подсчитывает число элементов: 


# Divisors 12 NB. Tally Divisors of 12 (число делителей для 12) 


# Divisors 13 NB. Число делителей для 13 
2 
Теперь сравним результаты с числом 2: 


(3t Divisors 12) = 2 NB. (Tally Divisors 12) Equal 2? 
0 NB. Нет 
(3 Divisors 13) = 2 NB. Равно ли (Tally Divisors 13) 2? 
1 
Давайте объединим глаголы и создадим программу, обнаруживающую прошлое 
число (которое имсет точно два делителя): 


Prime = . # @ Divisors = 2: NB. Простое число есть 
NB. (Tally Atop Divisors) Equal Two 
i МВ. Где глагол 2: возращает 2 
Примеры использования: 


Рите 12 МВ. Является ли 12 простым числом ? 
МВ. Нет 
Рите 13 МВ. Является ли 13 простым числом ? 
1 NB. Да 


Теперь мы готовы расширить программу для генерации списка простых чисел 
Это будет сделано в части 2, наряду с изучением следующих этапов программирования: 
тестированием, отладкой, молелированием, упрощением, оптимизацией и обобщением. 
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ris Burke. “APL and J (2) -Indexing". VECTOR Vol. 13 No.2 pp 137. 143. 
Перевов - И. Нафтулин, А.Бузин) 


Серия статей “APL и J” является попыткой объяснить образ мышления, 
специфичный лля программирования на J путем сопоставления APL и J с 
привлечением примеров. Термин APL будет использоваться m обобщенном смысле - 
используемые АПЛ-конструкцин имеются в большинстве коммерческих версий APL. 

В этой статье мы рассмотрим индексирование и индексированное присвоение в J. 


Обозначения 


Мы используем буквы V. M m А для векторов, матриц и массивов любой 
размерности соответственно. За этими буквами могут стоять числа, указывающие 
размеры массива. Например, V - любой вектор, VS - вектор ллиной 5, №45 - матрица 
размером 4 на 5, А245 - трехмерный массив размера 2*4*5. 

Там где требуются конкретные значения, VS будет определено как i5, M45 как 
450120. например: 


Mas 
12 3 8 
67 8 9 


11 12 13 14 
16 17 18 19 


Мы будем использовать терминологию APL, за исключением тех случаев, где 
без терминологии J нельзя обойтись. Так как J использует индексацию начиная с 0, 
будем препполагать, что Dio~0. 


Индексирование 


В APL для индексирования используются индексные выражения, заключенные в 
скобки. Такие выражения не поддерживаются B J; вместо этого B J используют 
функцию { (from). Сравним следующие выражения, для выборки второй строки из 
матрицы: 


№:2;] APL 


IM 


Чтобы повять это нововведение в J, заметим. что индексные скобки в APL не 
согласуются с общепринятым АПЛ-синтаксисом. Действительно, индексирование - это 
пвуместная функция, использующая в качестве аргументов данные и индексные 
указатели, однако оно не имеет обычного для двухместных функций синтаксиса - один 
аргумент справа, другой - слева. 

Более того, вы не можете использовать индексирование в качестве обычной 
функиии'. Например, если № является вложенным массивом, каждый элемент которого ; 
есть матрица, Вы ве можете использовать индексные скобки, чтобы выбрать строку 
номер 2 из каждого элемента: 

N'[I2:] 
'NTAX ERROR 


1 Именно поэтому в некоторые версии АПЛ введена функция индексирования. например. в DyalogAPL 
oma обозначается хак >. ав APL2 - как 0. Надо заметить. что эта функция не облапает всеми 
возысжностями. которое предоставляет обычное АПЛ-индексирование (Здесь w долее - примечания 
переводчиков} 
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Если Вы хотите сделать это, Вы должны определить функцию для 
индексирования матрицы: 


[0] rendx rowndx mat 
[I]. r-mat[ndx;] 
Для выборки второй строки из матрицы М следует использовать выражение 
2 rowndx M, a для выборки второй строки из всех элементов № - выражение 
2 rowndx"N. 
Соответствующие выражения в ] имеют вид: 


2(M 
2 { each N 


Как видите, { является просто функциональной формой инлексных скобок. 
Поскольку { является обыкновенной функцией, ее можно использовать в 
функциональных выражениях, как показано выше, 

Идея { проста, но не тождественна индексной функции 0 в APL2. 

Заметим, что если мы пожелаем в APL выбрать второй слой из трехмерного 
массива, нам потребуется изменить функцию rowndx, но в J выражении все останется 
без изменений. 

Приведем еще несколько примеров: 


item2=. 2.& { функция возвращающая второй элемент 
item? M45 

10 11 12 13 14 

item2 А324 

16 17 i8 19 

202012223 

mrow=. { & M45 функция возвращая строки М45 
mrow32 

15 16 17 18 19 

10 H 12 13 14 


Индексирование c левым аргументом 


Левый аргумент может иметь различные формы: 

i. Это могут быть одно или несколько целых чисел, которые выбирают 
соответствующие элементы из правого аргумента. Отрицательные числа выбирают от 
конца, например: 


2.1 (M45 вторая и последняя строки М45 
10 1012 13 14 
15 16 17 18 19 


Часто бывает удобным явное указание размерности функции { , например: 


2 .1(*1 M45 второй и последний столбцы M45 
2 4 
T. 9. 
12 14 
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2. Левый аргумент может быть одним или большим количеством списков, 
заключенных в скобки, кажлый элемент из которых есть целые числа, которые 


выбирают ло соответствующим осям: 


13] 


Mast 


a 
(< 13) {M45 J 


8 
Ниже приведенные выражения позволяют разделить индексы: 


MuSL(1 3) (2 u)) APL2 и Dyaiog APL 


(«13:2 4) (MáS 2 
814 
3. Списки ь скобках из левого аргумента могут сами содержать списки, каждый 
элемент так же выбирает по соответствующим осям: 


Mas[iss 31 APL 


69 


(€1:34) {M45 J 
89 


Заметим, что B 1 это последнее выражение позволяет разделить индексы, где 
каждый индекс может иметь различное число элементов. 


Слелуюший пример имеет лва индексных указателя: 
первый выбирает строку 1, столбцы 3и 4; 
второй- выбирает строку 2, столбец 3. Эти результаты объединяются в матрицу. 


дополняя вторую строку нулем. 
(1:3 4:2 3) {Mas 

89 

130 
Выбор всех элементов вдоль оси 


В APL когда ось опущена, выбираются все элементы этой оси. Это не TO же 
самое, что использование пустого индекса: 


№5[;2] выбор всех элементов второго стог: 
271217 


M45['*;2] невыбрать ни одного элемента из второго столбца 
B J пропуск оси обозначается с помощью пустого вектора в скобках: 


(<(<''):2){М45 выбор всех элементов второго столбца 
271217 


{<'';2) { M45 невыбрать ни одного элемента из второго столбца 
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Вместо пустого вектора удобно использовать "a? (функция ace, поро 
вложенный пустой вектор): 
1 Más выбор всех элементов второго столбца 


В общем случае, аргументы заключенные в скобках используются как индексы 
для выбора соответствующих элементов. Пустые скобки выбирают все. Ниже, 
выбираются первая и последняя строки из столбцов 2 и 3: 


(<(<0_1);23) | M45 
7 8 
1213 


Индексированное присваивание 


Так же, как и для индексирования, синтаксис индексированного присваивания в 
АПЛ не соответствует стандартному синтаксису. Эта операция требует трех 
аргументов- индекса и двух массивов, один из которых обязательно должен быть 
представлен своим именем. Имя одного массива И инлексы указываются слева от 
присваивания, другой массив указывается справа: 


Mi2idev заменить строку 2 из М на 


Индексированное присваивание не является функииональным выражением. Его 
явным результатом является присваиваемое значение (в данном примере V ) a 
изменение М является побочным эффектом. 

Напротив, в J индексированное присваиванне является частью языка. Эта 
операция состоит из двух шагов: 

7 индексы задаются как аргументы наречия | (amend), которое является 
лвуместной функцией, воэдействующей на свои два аргумента в соответствии c 
индексами, 

г затем эта функция применяется к двум аргумснтам- данным. Элементы левого 
аргумента заменяют элементы правого аргумента согласно индексам. 

Например, чтобы заменить строку 2 из М на У: 


У2}м 

Порядок выполнения слелующий: 

У(2})М 2 } является функцией, которая связана с элементом 2. 

Чтобы заменить строку 2 2:18 каждого элемента вложенного списка матриц М : 

(€ V)2] each М 

Заметим, что инлексированное присваивание в J не требует присваивания и 
обновления элементов, поэтому нет необходимости в именовании аргумента 
Изменение М осуществляется следующим образом: 


М=.У2}М 
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Аргументы для Amend 


Иизексные аргументы для | симметричны индексным аргументам для |. 
Например. 


24 M45 выбор строки 2 
10 0) 12 13 14 
(100* 1.5) 2} M45 изменение строки 2 
р тс 4 
56 2187-8. 
0 100 200 300 400 
15 16 17 18 19 
(1:123) {M45 выбор строки | столбиов 1 23 
678 
100 200 300 ( <1:123)} М45 заменить строку 1 столбиов 1 23 
0 123 4 
5 100 200 300 9 
OU 12 13 14 


15 16 17 18 19 


Селективное присваивание 

Современный APL может заменить часть массива, выбранного C помощью 
выражения зазанного слева от знака присваивания. Эта операция называется 
селективным присваиванием, Например, заменить все 2 в V на 20: 


2:02, 2 
=2)/V)+20 


20 з 1 20 


Подобные средства B Г обеспечиваются использованием функцией amend, 
которая позволяет создать требуемые индексы. Например: 


bx1011011 утилита bx возврашает индексы единиц 
булевого вектора 


Гвозвращает индексы элементов правого 
аргумента, равных 2 


201122312 использует f для замены 2 на 20 
120203120 


Выборка (Fetch ) 


Новой функцией в 33.02 является {: fetch, которая в случае бинарного 
использования x fetch у выбирает из y подобласть указанную в х; при этом выбор 
на каждом уровне производится с помощью ( . 
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Например: 


[А=,123;45;1.45 


1234 
$678 9 
14 


10 H 12 13 
15 16 17 18 19 
(2:1 .D fetch A — выбор из второго элемента элемента из 
последней строки и столбца. 
19 
{2:<2:234) {св А выбор из второго элемента элементов, 
имеющих индекс2:234 
121314 


Такая выборка действует аналогично проникающей индексации в Dyalog APL, 
за исключением того, что в J Ha выбираемый элемент не наложено ограничение, чтобы 
он был скаляром: 


AL(2(2 2))(2(2 32) (202 8))] 
12 15 15 


Литература 
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АПЛ-операторы и J 


Norman Vector v.13#1 
(перевод. предисловие и послесловие А.Бузина) 


Предисловие от переводчика История АПЛ совольно драматична. Кеннет Айнерсон, 
отец АПЛ отказался от старшего сыни и полностью посвятил себя младшему - Лю. Тем 
не менее. эти два языка до сих пор сосуществуют рядом, и нельзя сказать, что кто-то из 
них одержал окоичительную победу. По-видимому, у J есть свои достоинства и 
недостатки по сравнению с АПЛ. Я не знаком c J, но первые впечатления, вынесенные мной 
из чтения статей a Vector, уже сформировались, и я хотел бы их высказать. 

Во-первых. в J перенесена из АПЛ идеология работы с массивами как с целостными 
объектами. а также идеология конструктивного (а не явного} описания массивов. Во- 
вторых. сохранено большое количество примитивных функций. Это - mo, что я могу 
сказать о сходстве J и АПЛ. 

Теперь о различиях. Бросающееся в глаза различие - отказ от нестаибартного ATJ- 
алфавита. Айверсон. по-видимому, учел многочисленные упреки по поводу АПЛ-алфавита, 
Однако. в целях сохранения лаконичности языка, автору J пришлось ввести 
Әвухсимвольные обозначения для примитивов. J не стал более читабельным чем АПЛ, а 
может быть. стал даже менее читабельным. 

Насколько я понял, в J введено понятие "фтнкциональной размерности", то есть самой 
фүнкцим приписана размерность. определяющая размерности возможных аргументов, 
напраяление действия функции и размерность результата. Кроме того. расширены 
соглашения о возможностях конкатенации массивов разных размерностей. 

Основное отличие заключается в том, что J сильно продвинулся в сторону развития 
примитивных операторов. Этот язык. а отличие от классических языков 
программирования. рассматривает в качестве объектов операций не только банные, но и 
Функции. причем сами операции могут порождать как данные, так u функции. 
Результатом выражения в J может быть имя функции. Так например. в J введены, 
примитивные операторы (т.н. "союзы”). которые могут порождать новую функцию, 
саязывая имени дех других 

Эти усовершенствования сделали J еще более изящным языком программирования по 
сравнению с АПЛ. Возможность построения функций из функций в режиме командной 
строки. несомненно, впечатляет. Это приближает J к математическим обозначениям, 
позволяет говорить © том, что языки программирования могут описывать работу не 
только в сискретных числовых пространствах, Ko и в функциональных. Заметим, однако, 
что подобные усовершенствования являются скорее  лингвистическими: они 
усовершенствуют саму запись, wo не отражаются на эффективности вычислений. С 
Әругой стороны, конструкции языка J не являются ни привычными (для классического 
программиста}. ни простыми в понимании (для меня). s 
Мне представляется, что главная заслуга создателей АПЛ (a вслед за ним и J) 
заключается в том, что он позволил программистам отказаться от программистской 
рутины - описаний структур данных, циклов, форматирования ввода/вывода. К 
сожалению, при этом пришлось пожертвовать эффективностью вычислений. Можно 
сказать. что классические языки (С++, Паскаль и др.) пошли по пути повышения 
эффективности конечного машинного кода, упуская из виду вопрос об эффективности 
написания первичного программного кода. АПЛ и J пошли в противоположную сторону. 
Истина, как всегда, лежит посередине. Хотя для более основательных утверждений 0 
перспективах развития АПЛ, J и их соотношении с классическими языками 
программирования требуется более серьезное знакомство c J, я думаю. что центральной 
задачей для APL/J направления является в настоящее время не совершенствование их 
языковых конструкций, а попытка создания квазикомпилятора (то есть компилятора 
избранных кусков АПЛ-кода) и совершенствование взаимодействия с другими системами. 


(Конец предисловия} 
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J заслуживает внимания АПЛ-программистов с точки зрения использования 
операторов. Разработчики Ј сделали использование операторов ключевым моментом 
языка программирования. 
Грубо говоря. АПЛ-"функция" соответствует понятию “глагол” в J. Понятие оператора 
1 разделят на Jua: — "Hapesue'(adverb) (унарный оператор) и 
"союз'(сопјипсіопбинарный оператор). Союзы подразделяются на три типа 
"существительное-сушествительное", "существительное-глагол" н "ғлагол-глагол 
Таким образом, всего рассматривается 4 типа конструкций, соответствующих АПЛ- 
операторам. Понимание этого факта может сушественно отразиться на стиле вашего 
АПЛ программирования. Я буду для краткости использовать термин "операторное 
программирование"; я утверждаю, что стиль операторного программирования 
сушественно увеличивает общность программного кода. 
Перед тем, как отдельно рассмотреть все 4 типа операторов, поясню на примере, что я 
подразумеваю под "операторным стилем программирования". Рассмотрим стандартную 
для начинающего АПЛ-иста программу вычисления среднего: 

[0] 2-птеал В 

Ш 2-28 


mean 1 4 5 6 
T 
Используя операторный стиль и держа в уме способ “вилки” (fork) из J, 
перепрограммируем эту задачу, располагая +/ в качестве самой левой операции 
выражения, которое производит над R два преобразования - сначала p, а затем +/, 
Объединим эти две функции c помощью оператора AND, который применяет функции- 
операнды к аргументам-данным:: 
[0] 2-1. AND QR «Оригинал подправлен 
(1 «0-ONC tL yt 
D] +0Z+(L PRXLQR) 
[3] LLEZ«P ВХО В) 
Теперь запишем новый текст для функции, вычисляющей среднее: 
(01 Z+meani R 
[I] Z+t4/ANDpR 
meant i à 5 6 
n 
(Опытный читатель заметил, что. перед результатом появился дополнительный пробел, 
который означает, что он имеет глубину 2; эта техническая деталь легко может быть 


устранена). 
Известно, что среднее арифметическое не является елинственным определением 


а, судя по нашему опыту, это действительно так. То, что автор называет “операторным 
стилем" позволяет использовать имена функций для порождения новых имен функций без 
использования редактора функций. Классические языки программирования не позволяют этого 
делать. Результатом функции в классических языках программирования могут быть только 
данные, но не имена. 

С одной стороны, такая конструкция очень красива и еще больше приближает АПЛ к языку 
математики. Например, приятно сознавать, что функция второй производной функции f в АПЛ 
записывается почти так же как в математике: Г D D. С другой стороны подобный стиль 
наверняка добавляет дополнительные проблемы к вопросу компилируемости, Кроме того, к 
этому нетрадицнонному стилю, в частности к приоритетам операций (функций и операторов) не 
так просто привыкнуть. (Прим. переводчика} 

2 Интересно отметить, что версия DyalogAPL предоставляет возможность сымитировать способ 
"вилки" с помощью оператора композиции. Например, вычисление среднего арифметического 
может быть записано следующим образом: Meane :/«(a7)e(76/' 'pte(,")jecer, В 
общем случае, выражение (2 X)F(f| X) эквивалентно P/-(4 )(!f2' 'f1!2(, ))ocov. 
Этот факт говорит о том, что DyalogAPL движется в сторону J. 
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среднего: другими часто встречающимися определениями является средисе 
геометрическое и среднее гармоническое. Эти определения различаются тем, что 
срелнее арифметическое вычисляется от данных, предварительно преобразованных с 
помощью разных функций. Преобразуем функцию вычисления среднего. превратив сс в 
оператор: 

[0] Z+(P MEANIJR 

[I] Z+s//ANDpPR 


-УЕАМ t & 6 


Гармоническое среднее вычисляется следующим образом: 
БАМ 1 8 5 6 


2... 
‚ à геометрическое среднее: 
БАМ 1 8 6 6 


s 


В послелних двух выражениях с левого края стоит имя функции, обратной к следующей 
за ней. Мы могли бы переписать наш оператор вычисления среднего как бинарный: 

Ze(P MEAN Q)5 
ZePs/+/ANDDZ В 


-МЕАМ 0 8 Е 
Аналогично вычисляются гармоническое и геометрическое средние: 
+MEANt 28$ 6 
УМЕ. 1056 
Теперь запрограммируем функцию отклонения от среднего. Начнем с такой“: 


Используя эту функцию. совместно с функцией МЕАМ, можно получить абсолютное 
отклонение следующим образом: 

-XEAN adev 1-56 
Теперь завайте подумаем: абсолютное отклонение является лишь одним из вилов 
отклонений, другим видом является квадратичное отклонение, чье срелнее является 
дисперсией. Итак, опять вернемся к оператору: 


3.5 
Функция sq сама по себе является частным случаем экспоненты, можно, например, 
определить оператор экспоненты: 
«(Р EXP)R 
"zeReP 


iNN(2 EXP)DZV 1 4 5 6 


4 По-видимому, автор использовал не DyalogAPL (возможно, APL2). Судя по всему унарный 
примнтив < используется автором как "разрушить". В DyalogAPL он имеет такое значение 
только при OML=3. To же замечание относится и к тексту оператора DEV. Мы даем колы 
автора в оригинальном виде, но следует учесть. что, если вы используете другую версию АПЛ, 
TO их нало немного изменить. 

5 B DyalogAPL можно было бы обойтись и без функини sq: MEAN (492) DEV 1 6 5 6 


АПЛ KAYE Том 2, № 2, 1997 
+MEAN(3 EXP)DEV 1 ч £ 6 


ч.5 

Последнее выражение, как легко понять вычисляет момент третьего порядка. 

Если выразить суть "операторного программирования" одной фразой, то можно 
сказать: "Зачем определять несколько функций, если можно сразу определить их 
семейство?". 

В следующем разделе приведены примеры каждого из 4-х типов операторов, 
упомянутых в начале статьи. 


1. Операторы, используемые как наречия 

Простейшими примерами являются операторы редукции и внешнего произведения (но 
НЕ внутреннего, которое является оператором типа глагол-глагол). Примером 
оператора-наречия является также описанный выше оператор EXP. Вы можете 
подумать, что между выражениями 2 EXP 34 2*3 нет никакой разницы. Между тем, это 
совсем не так. Выражение (2+)3 является синтаксически неправильным, в то время как 
выражение (2 EXP)3 не только эквивалентно выражению 2 EXP 3, но и иллюстрирует 
механизм исполнения этого выражения, называемый в компьютерных науках 
“кэррингом" (currying) по имени американского логика Н.В.Силу. Грубо говоря, этот 
механизм заключастся в замене операции с двумя переменеыми сперацией с одяой 
переменной путем включения другой переменной в саму операцию*. Таким образом, 2 
EXP является производной функцией, которая может быть применена”, например, к 
вектору ! 2 3 для получения вектора 2 4 8. 

Другим примером кэрринга является: 


cl Z-(P LOG)R 


0.30203 

Описанный выше оператор DEV также является примером оператора-наречия. Он 
модифипирует действие операнда-функции с помощью указания на то, что межлу ним и 
аргументом операции должна быть вставлена операция вычисления отклонений от 
среднего. 


2. Операции типа "существительное-глагол" 
Простым примером оператора этого типа является КРТ!, который произволит 
обретение к функции заданное количество раз»: 
Z-L(P RPTi)R;I 
160 o ZeL 
*RSIeI«1)/0 


2(2 EXP)RPTI1 5 
65536 
(пятый член последовательности 2.4.16,256...). 


Tore 


0] 
1 
2 
1 
2 


SB таком случае, типичным кэррингом являются вторая и третья форма оператора композиция 
в DyalogAPL. 

? Главная прелесть, однако, не в том, что эту функцию можно применить к данным (к данным 
всегда можно применить н выражение "2« "), a D том, что эту функцию можно использовать как 
аргумент оператора (например, оператора дифференцирования). 

* He ясно, почему оператор КРТ! отнесен к типу "существительное-глагол". В соответствии с 
определением, данным в начале статьи, этот тип относится к союзам, которые являются 
биварными операторами. Однако RPTE - унарный оператор. 

° В оригинале вместо строчек 3 и 4 используется строка «Lt Z«P Z, которая, по крайней мере в 
Dyalog 7.2 является синтаксически неверной. Можно предположить, что автор работает c АПЛ? 
oT IBM. Об этом же говорит н нспользованне примитива ‹ в смысле "разрушить". 


HI 


АПЛ КЛУБ Том 2, № 2, 1997 


Вариацией на эту тему звляется оператор ВРТ2. который повторяет обращение к 
функции до тех пор, вока разница между двумя последующими результатами 
вычисления этой функции больше чем правый операнд Q: 

2eL(P EPT? Q)R 

iQ» 2-2} 0 

CLi(Z-5 P 5.2} 

Например, известный алгоритм вычисления квадратного корня может быть записан c 
помошью функции 


R 


и оператора RPT2 следующим образом!" 
sqrtstep RPT2 0.001) 1 


Другим примером являетсв опсратор RPT из работы (1): 


З.Операции типа "глагол-глагол 
Выше мы уже встречались с операторами из этого класса. Это были операгоры AND и 
MEAN. Операторы этого типа позволяют образовать некоторую композицию из двух 
функций; детальное описание этой композиции и представляет собой тело оператор: 
Привелем еще пример - оператор аналогичный наречию языка J стем же именем: 


2-10: 
DOLLIRe0? R){Q R) 

Приведем пример использования этого оператора (моделирование умножения C 
помошью сложения логарифмов): 

+2 LOG) 3 


шествительное существительное"! 


4.Операцин типа " c; 


В качестве примеров можно привести несколько способов использования операторов. 
При использовании кэрринга эти способы позволяют увеличить количество аргументов 
функиии до трех или четырех. Простым примером является формула сложных 
процентов А(1+Е)“, которая по существу включает три аргумента. Кэррингуя величину 


LR. можно использовать оператор: 
(2 CI)R 


°° Пример привезен к правильному синтаксическому виду на Dyalog 7.2 
и Оба примера, приведенные в этом разделе, по-моему, неудачны. Они прелставляют не 
бинарные, а унарные операторы. a поэтому ло приведенной классификации относятся к классу 
наречий! Пример с олератором CI вообще принципиально не отличается от примера с 
оператором LOG (см. выше). Иллюстрацией типа “сушествительное-сушествительное" может 
быть, например, оператор 

reA(L СІІ RON 
reAs(L+R)«N 
обобщающий опрератор Cl илн опрератор "суммирования главного минора n»n" матрицы X: 

rein SuxMinor m)X 

en тих 
х++/.Х 
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Или, например, формула Герона для вычисления площади треугольника по трем 
сторонам может быть запрограммирована Tak! 
[0] 2-Р TRIAREA)R 
Ut] Z-0U(0. 5 LPRIAL P R)*0.5 
3(4 TRIAREA)"S 6 a 
6 5.33 


Является nu операторное программирование более совершенной формой 
программирования? Думаю, na. В первой части этой статьи мы разработали небольшую 
прикладную систему, включающую четыре оператора - AND, MEAN, DEV, EXP -и ни 
одной функции. 

Использование операторного подхода подразумевает осмысление двух вопросов: а)что 
является сутью данной операции и б)насколько данную операцию можно обобщить. 
Например, содержание операторов, описанных выше, показывает, что: 

суть MEAN это + +H p 

суть DEV это EXP u MEAN 

суть EXP oro + 

и каждый из этих операторов является обобщением соответствующих функций. 

Выше я попытался показать, что если программист склонен к обобщениям, To 
операторы возникают естественным образом. Использованные примеры были 
достаточно просты, чтобы их сложность не скрывала суть используемых аргументов, 
Читате интересующийся более сложными иллюстрациями, может обратиться к 
работе [t]. 


Послесловие om переводчика Использование АПЛ-операторов действительно 


предоставляет возможность программирования многих вычислительных задач в АПЛ- 
стиле: кратко и адаптировано к интерактивным экспериментам. В каком еще языке 
программирования имя второй произаодной функции f будет выглядеть как D D f, то есть 
почти также, как в математике? Именно операторы придают АПЛ такую 
лаконичность, хотя односимвольные имена многих примитивных функций также играют 
немаловажную роль. Использование определяемых операторов позволнет обобщать 
довольно широкие классы задач (хотя, возможно, многим программистам это и не 
понравится - все-таки, это черта математической, и не программистской культуры - 

например, правило 2.2 в книге А.Голуба "С&С++. Правила программирования") . Тем не 
менее, для вычислителя, программирующего разнообразные задачи и ценящего свое время, 
использование операторов может оказаться настоящей золотой жилой. Посмотрите, 
как с помощью одного оператора (рекуррентного оператора) можно облегчить себе 
жизнь при программировании огромного количества задач вычислительной математики 

(см. мою статью в предыдущем номере "АПЛ "Kay6a")! Поэтому идея статьи Н.Томсона 
оказалась мне очень близкой. 

Однако, хочу сделать одно критическое замечание по поводу второй части статьи, - той, 
где дается классификация операторов. 

Операторы в АПЛ действительно можно подразделить на два непересекающихся класса - 
унарнме и бинарные. Однако бинарные операторы нельзя классифицировать по трем 
подклассам, как е J (глагол-глагол, глагол-существительное и существительное 
существительное). Это верно по крайней мере для DyalogAPL. Дело в том, что одно и то 
же имя оператора можно применять с операндами разного типа. 

Действительно, no тексту оператора RPT2 (см. выше) ничего нельзя сказать о том, к 
какому подклассу он относится. Его можно применять, используя в качестве операндов 


‚> Вот yx совсем неудачный пример: стороны треугольника в некотором роде "равноправны" 
(они одинаково влияют на площадь) и их естественно делать единственным аргументом 
функини! 

1 Думаю, что в тексте ошибка: там пропущен оператор ". 

= В оригинале почему-то вместо EXP стоит «; наверное, опечатка. 


в 
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ак имена функций, так u имена данных. Н.Томсон отшосит этот оператор к типу 
"лагол-стществительное ^ u принодит соответствующий пример. Но вот примеры 
применения этого же оператора c двумя "существительными": 

£62 RPT2 3)4 


или с двумя "глаголами": 
3 (sqrtstep ВРТ2 F001) 1 


Утвержоение o том, что бинарные операторы классифицируются по трем типам в 
DyalogAPL неверно даже для примитивных операторов. Действительно, оператор 
Kownojuuuu может быть применен как в виде "глагол-глагол", так и в виде "глаго, 
существительное". 

Следует заметить, что возможность использования данных в качестве операнда 
onenamopa добавляет гибкости unmepnpemamopy, на порождает большие трудности при 
формальном списании языка. Практически эта возможность приводит к слиянию понятий 
оператора и функции. Действительно, становится неясным, является ли унарнан я 
оператором или функцией, поскольку, примененная к данным (например к символьному 
скаляру *х') она порождает имя функции. 

В классическом учебнике по АПЛ? (Brown, Pakin, Polivka) авторы так и не смогли дать 
строгого определения оператори. Ha стр. 78 они пишут, что операторы применяются к 
функциям. Однако, на стр.208 подчеркивается, что символ "/" всегда (даже, когда слева 
стоит массив) обозначает оператор. При определении синтаксиса описания 
определяемого оператора (cmp.89) на операнды оператора также не наложено никаких 
ограничений. Реализация АПЛ? следует именно этому принципу: "10 1/' является в АПЛ2 
правильным именем функции. Такой подход хорош, конечно, тем, что можно сказать: 
"euneun "" назяется именем оператора". Однако возникает вопрос, почему, например. 
символ <" является не только именем оператора? И что хорошего, если один и mom же 
символ обозначает совершенно разные операторы (редукции и репликации) в зависимости 
от контекста? 

В документации к DyalogAPL (cmp.21 Language Reference) дано более четкое определение 
оператора, DyalogAPL рассматривает символ "f" как имя бинарной функции (репликации) 
или унарного оператора (редукции) в зависимости от контекста. Хоти этот подход 
такой же запутанный, как и в АПЛ? (лучше всего было бы определить другой символ для 
репликации; но такова уж традиция). он имеет то достоинство. что делает все 
примитивные операторы, за исключением оператора композиции (которого, кстати, нет 
в АПЛ?) операциями только над функциями”. Сам по себе оператор композиции, 
нарушающий!“ стройность концепции оператора, мог бы быть разделен на два 
суперпозицию функций и кэрринг (см. статью), причем последний можно было бы для 
объявить особой операцией - ни функцией, ни оператором 

Как видите, концепция оператора в АПЛ (появившаяся аместе с АПЛ и являющаяся одним 
из краеугольных камней АПЛ) довольно сложная и по-разному трактуется разными 
производителями. Думаю, что это было одной из причин, побудивших Кеннета Айверсона 
скорректировать эту концепцию e J. 
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106, April 1996 


*5 B версии DyalogAPL 7.2 , к сожалению, будет вычисляться выражение 2((4).*)3, но это, 
видимо. мелкая ошибка разработчиков, которые забыли провернть тип операнда, если 
аргументы являются скалярами. 

16 Мы уже говорили о TOM, что + вообще нарушает все, что угодно. 
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Технические вопросы и консультации 
4.Кононов 
АРУ. в Internet 
Введение 


«Дорвавшись» до Internet, автор, естественно, попытался найти в этой вселенской 
информационной свалке какую-нибудь информации об АПЛ. И мы не обманулись в 
своих надеждах. Но начнем по порядку ... 


Поскольку тему Internet мы в нашем журнале еще не освещали, обзорно рассмотрим 
базовые моменты этой «напасти» и термины, которые сейчас вошли в оборот. 


Опуская вопросы, «как подключиться к Interni» и «кто за это будет платить», 
остановимся на том, как и чем найти информацию об АПЛ в Internet, и рассмотрим 
основные Internet-pecypest. связанные с АПЛ, т.е. места, где эта информация чаще всего 
аккумулируется. Читателю следует иметь ввиду, что наш опыт работы в Internet еще не 
столь велик, и сам читатель, пользулсь нашей чнаводкой» и располагая временем, 
возможно, проникнет в более глубокие информационные пласты, чем это удалось нам. 


Для начала скажем, что Internet включает в себя огромное множество разнотипных 
ЭВМ, связанных между собой информационными каналами разного типа, и хранящих 
на своих накопителях постоянно обновляющуюся информацию в различных форматах - 
данные для непосредственного восприятия (т.е. документы, изображения, звук, видео), 
компьютерные программы, и систематизированные сведения (базы данных), поэтому из 
Internet можно получить не только оперативную информацию о предстоящих семинарах 
и конференциях по АПЛ, но и переписать («скачать») статьн по АПЛ и даже бесплатные 
интерпретаторы и рабочие области с АПЛ-программами, готовыми к применению. (Не 
забывайте при этом, что вместе с программами в Ваш компьютер из сети могут попасть 
и вирусы!). 


В мире существуст множество компьютерных сетей с разными названиями и самого 
разного масштаба - от внугрифирменных сетей для решения задач производства и 
сбыта до глобальных коммерческих, почтовых и справочных сетей. Internet охватывает 
большинство из них, поэтому Internet можно рассматривать как сеть сетей. В настоящее 
время в Internet входят несколько глобальных информационных подсистем: 


информационная сеть WWW; 
служба архивов ЕТР; 
информационная система Goph 
система телеконферениий Usenet; 
система баз данных МАЗ; 
электронная почта E-mail; 
справочная подсистема Х.500; 
адресные книги WHOIS, 


ecc t n n 


Для взаимодействия всех этих разнотипных ресурсов естественным образом возникло 
организованное подмножество серверов Internet, которое в обиходе называют World 
Wide Web или WWW - «Всемирная Паутина». WWW сейчас обеспечивает 
интерактивный режим доступа к информации миллионам пользователей, электронную 
почту E-mail и перекачку файлов с ЕТР-серверов (компьютеров, хранящих файлы для 
копирования по запросу удаленного заказчика на его компьютер по протоколу File 
Transfer Protocol -FTP). Все это хозяйство принадлежит самым различным учреждениям 
и фирмам, часть из которых (Іпієгпе!-провайдеры) зарабатывают себе на жизнь только 
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продажей услуг связи c Internet. Помимо Internet существуют и автономные host- 
компьютеры (серверы) или группы серверов, к которым можно подключиться по 
телефону и получить информацию или списать файл - это системы типа BBS (Bulletin 
Broad System - система текстового оповещения), например CompuServe н America 
Online. Многие из BBS уже фактически стали частью Internet, те. для доступа к ним 
можно зарегистрироваться у ближайшего провайдера Internet. В России услуги Internet. 
сейчас начинают предоставлять как крупные сети, ориентированные ранее на пересылку 
электронной почты и файлов, так и новые. Вот некоторые из отечестаенных Internel- 
провайлеров” Релком, Демос, Совам Телепорт, Россия-Он-Лайн, РОСНЕТ, ГласНет, 
СИТЕК. Интернет/Россия, RUHELP/Radio-MGU, 


ная. ия в Internet предоставляется сетью WWW в виле Web-crpannu, 
Меф-страница - это небольшой документ, иногда размером с экран дисплея, созданный 
по гипертекстовой технологии средствами языка HTML (HyperText Markup Language - 
язык гипертекстовой размегки) обычно < помошью специального редактора. Текст Web- 
страницы содержит выделенные шрифтом и цветом слова и фразы, являющиеся 
указателями на другие страницы. Самое замечательное, что эты страницы-ссылки могут 
нахолится как на этом же диске, так и на дисках других компьютеров, разбросанных по 
всему миру. Помимо текста, \еђ-страница может содержать мультимедийные элементы 
- статические (ссылки на ОТЕ-файлы) и двигаюшееся изображения, а также иметь 
звуковое сопровождение - и все эти элементы также могут храниться в виде отлельных 
файлов в произвольных местах WWW, 


Обычно основная задача \МеБ-страницы - представить в Internet какую либо 
организацию или фирму. АПЛ“ Клуб возможно в ближайшее время заведет свою 
страничку в Internet, например, с адресом http://www aplclub.ccas.ru. Точный адрес Вам 
будет сообщен позднее, а на примере этого можно изучить структуру УВТ-адреса в 
Internet (Universal Resource Locator - универсальный указатель ресурса). Адрес читается 
залом наперед (как мы привыкли в АЛЛ): ru - Россия, ccas - ВЦАН (Вычислительный 
Центр Академии Наук), aplclub - наша страничка, www - серверы группы WWW, Вир - 
указатель протокола обмена с сервером (http - hypertext transfer protocol). Формат адреса 
базируется на формате файлов в OC UNIX, широко используемой на серверах в Internet. 
В структуре алреса «хвостик» определяет либо страну (ru или su - Россия (СНГ), са - 
Канада. us США, fr - Франция, uk - Великобритания) либо группу организаций (gov - 
правительственные, сот - коммерческие, org - некоммерческие. ойи - образовательные и 
исследовательские). Группа имен, разделенных точками, формируют имя домена - узла 
сети. представляющего сервер (host-KOMTIbIOTeD), постоянно соелиненный с Internet - и 
опрелелясют положение сервера в иерархической структуре сети. 


Совокупность МеЬ-страниц создает документ для интерактивной работы, при которой 
входящие в него элементы просматриваются не последовательно, а в порядке «хода 
мысли» читателя. С точки зрения системы, такой документ (если он находится на одном 
компьютере) представляется совокупностью вложенных каталогов и файлов. Например 
uma http//www.acm.org/catalog/sigs/sigapl.hum! представляет собой адрес странички 
SIGAPL. хранящейся в виде файла с именем sigapl.htm] вместе со страничками лля 
других $Ю-ов в каталоге sigs, являющегося полкаталогом каталога catalog в групле 
каталогов организации АСМ (Association for Computing Machinery) на серверах WWW. 


Помимо Web-crpanau в Internet возможен доступ к специальному виду оперативного 
взаимодействия Новости (News) или конференции через cere Usenet News, но при 
условии. что Ваш Internet-npopaiitep предусмотрел такую услугу для своих клиентов. 


Коллекции файлов находятся на ЕТР-серверах, куда их могут помещать олни 
пользователи, а загружать (копировать на свои компьютеры) - другие, примерно так. 
как мы копируем с дискеты файл на винчестер Norton Commander-om. Например файл с 
адресом ftp:/archive.uwaterloo.ca/languages/apl/fonts/274] солержит шрифт (фонт) лля 
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АПЛ-символов из набора, совместимого со шрифтом с телетайпа ІВМ 2741, и этот 
шрифт можно скопировать с ЕТР-сервера унивсрситста Ватерлоо в Канаде. 


Для облегчения удаленному пользователю навигации в коллекциях файлов длительного 
хранения (в архивах) созданы сотни индексных серверов, на которых штатом 
администраторов формируются индексы файлов с потенциальным спросом. Старейшей 
такой сетью является поисковая сеть Gopher («Суслик» или ‘go fer’ - рыщущий в поисках 
чего-либо). Серверы Gopher работают на OC UNIX и пользователю предоставляется 
механизм поиска файлов на основе иерархической файловой структуры UNIX. Для 
обращения к серверам Gopher в адресе иместся специальное указание, например 
gopherz//veronica.scs.unr.edu/ll/veronica дает полный адрес каталога, через который 
можно осуществить поиск в некотором Сторйег-архиве, 


Если пользователю точно известно местонахождение файла, он может из Internel через 
механизм telnet непосредственно «залезть» в интересующий его компьютер, например 
для работы с базой данных, поддерживаемой только в данном месте (на данном site). 


Наконец, для обслуживания электронной почты (E-mall) в Internet существуют почтовые 
серверы, а для поиска почтовых адресов пользователь Internet может воспользоваться 
базой данных адресов электронной почты (mailDB). 


Инструмены Internet 


Если для работы с файловой системой MS-DOS наиболее популярной программой 
является Norton Commander, то на рынке средств для работы в Internet сейчас лидируют 
два браузера (программы просмотра \Меб-страниц} - Microsoft Internet Explorer версии 3 
(уже появилась 4) и Netscape Navigator версии 3. Первому из них активно 
покровительствует сама Microsoft, включая cro в штатный состав OC Windows NT 4.0 и 
в расширение Windows-95 Plus. Фактически сейчас каждая из этих программ стремится 
объединить или автоматизировать доступ к нескольким инструментам Пметшег, 
сушествовующих в многочисленных реализациях самостоятельно (например программа 
Eudora для работы c E-mail, Archie и WS-FTP для работы с ҒТР, News Express для 
NEWS, WSGopher для Gopher). 


Работа c браузером, например c MIE (Microsoft Internet Explorer), как правило труда не 
представляет - сиди и листай Ме-страницы. Основная трудность - как быстро выйти на 
нужную информацию вследствие колоссальных масштабов информационных ресурсов. 
Здесь на помощь прихолят поисковые системы в Internet (SE - search engines - машины 
поиска) и автоматизированные каталоги (DIR- directories), базирующиеся на мощных 
суперэВМ или группах производительных серверов. 


Допустим, нам нужно найти информацию о языке АПЛ в Internet 


Предварительно можно сузить район поиска, отнеся искомую информацию к какому-то 
классу (наука, компьютеры, языки программирования) или задав ее вид (Web- 
страницы, архивные файлы, новости). В зависимости от подхода к поиску, можно 
воспользоваться либо поиском по тематике через DIR или по контексту документов 
через SE. 

Пусть мы решили выйти на АПЛ по тематике. Остается обратиться к серверу, 
работающему в режиме DIR. В [nternet имеется несколько довольно популярных DIR- 
систем, но наиболее известными являются YAHOO  (hitp//www.yahoo.com) и 
INFOSEEK (http://www.infoseek.com), Они совмещают в себе свойства DIR и SE 
системы, 
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Рис.1 


Выбрав любую из этих систем. например УАНОО, мы увидим первую страничку, 
содержащую перечень основных разделов - Искусство, Бизнес, Наука ... , среди которых 
нахолим подходящий по теме: Компьютеры и Интернет (здесь - перевод; фактически 
львиная доля информации в Internet ластся по-английски, поэтому мы так и 
продолжим). Нажав на эту строчку попадаем на страничку с описанием разлелов, 
связанных с компьютерной тематикой и находим Programming Languages. 
«Проваливаясь» в этот подраздел получаем список языков программирования и 
нажимаем на APL. В итоге мы проделали следующий путь в YAHOO: Computers and 
Internet: Programming Languages: APL и получаем страничку, показанную на Рис.1. 


Далее мы выходим на более конкретную информацию, например запрашиваем перечень 
всех компаний, имеющих отношение к языку АПЛ, нажав на Companies@. 


Здесь нам YAHOO диет указатели на Web-crpanunt двух «китов» АПЛ - американскую 
фирму APL2000 (продолжатель линии APL*PLUS Manugistics и STSC) и английскую 
Dyadic (линия DyalogAPL). «Наезжая» мышью на их имена мы внизу экрана увидим 
соответствующие WWW-agpeca: http//www.apl2000.com н http://www.dyadic.com 
Запомнив, их можно в дальнейшем использовать для прямого выхода на 
соответствующий сервер. 


Теперь можно продолжить нашу экскурсию и войти в эти странички. Заметим, что 
сильное впечатление оставляет оформление Wreb-yxia фирмы Dyalic. Вам будет 
предложено «скачать» специальный АПЛ-фонт и настроить Windows для 
непосредственного чтения фрагментов АПЛ-кода. Странички содержат множество 
иллюстраций, например объясняющих работу с таблицами (grids) (Рис.2). 


Поиск в Internet по контексту. выполняется с помошью какой-либо из SE, позволяет 
получить подборку информационных ресурсов разного типа по заданному вами 
запросу. При этом, чем точнее сформулирован запрос. тем меньше вы получите «пустой 
поролы». 
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Наиболее известными машинами поиска (средствами которых нам удалось найти 
информацию об АПЛ) являются системы AltaVista (httpz//www.altavista digital.com), 
HotBot (http/www.hotbot.com), Excite (httpZ/www.excite.com). 


Список популярных DIR и SE можно найти, нажав в MIE на кнопку «Поиск» или по 
адресу http-/home.microsoft.com/access'allinone.asp : 


Pick a search engine below and then enter the werd er words that you 
awe looking for and click Search. 


mum —I T sat an Défauft 


Bor, например, как выглядит (Рис.3) запрос к AltaVista выдать все что есть по «APL 
Language» (здесь вы видите и фрагменты рекламной информации). Здесь же установлен 
режим поиска по Web-crpaHHilaM и вывод в стандартном виде. 
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AltaVista. Search 


onsite mco; 


Tip: To ind good food in Chicago try: pizza "deep dich” + Chicago 
The різ sgn befor a word means that the word MUST appear in the document 


Puc3 
В отзет система нашла более 40000 документов, выдав на страничке заголовки первой 
десятки из них с соответствующими адресами. Первая же ссылка в этом списке вывела 
нас на страничку (Puc.4), близкую по содержанию Puc.l («Tak все запутано в этой 


паутине”=} и имеющую адрес 
http/www.dn.net/vippee/comp. lan. apl.htmil. 

Продолжая навигацию вручную и выбрав первый пункт, мы попадаем в \УеБ-страницу 

SIGAPL «Рис.5). 
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Рис.4 


Рис.5 


Третья позиция в этой странице открывает нам систематизированный перечень 
основных ресурсов внутри Internet и за его пределами, имеющих отношение к языку 
АПЛ. Заломним полный адрес этого списка: 


httpi/www.acn.org/sigapl/Resources/HomePage.html 
Отсюлг мы узнаем следующие полезные адреса: 


* Наиболее частые вопросы o6 АПЛ (FAQ) - http:/erover.jpl.nasa.gov/-sam/pub/apl.faq 

* Сервер SIGAPL - hitp//www.acm.org/sigapl 

+ АПЛ-архивы университета Ватерлоо в Канаде - 
fp-twatserv.uwaterloo.ca/languages/j/Welcome.html 

* Страничка фирмы APL2000 - http:/members.ol.com/APL2000/index.himt 

* Страничка фирмы Dyadic - bttp://www.dyadic.com 

Новости об APL2 - hup:/www.software.ibm.com/ap/apl/apl2-html 


. 
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• Страничка по J - http/www jsoftware.com 

* Новости в Usenet об APL и J - comp.lang.apl 

. a 

* И многое другое для различных служб Internet и BBS. 


Остановимся еще на Новостях в Internet. 


Для поиска по Новостям средствами SE AltaVista нужно в окошке Search (Рис.3) 
установить Usenet, a в поле запроса снова «APL Language». В результате мы увидим 
хронологический протокол обмена сообщениями участников постоянной заочной 
конференции по языку APL. Темы там обсуждаются самые разные, например: «АПЛ- 
секретное оружие ІВМ», «АПЛ против Java», «О компиляторе для АПЛ» и т.д. Каждый 
пользователь Internet может принять в ней участие, послав свою ремарку или слелав 
«вбрасывание» по новой теме. 


Несколько слов о других SE, 


Система Hot Bot на запрос «APL Language» по Web нашла 10191 документ и вывела 
первые 10 названий. Здесь для каждого документа указан % соответствия введенному 
запросу и список начинается с самых актуальных материалов. Для каждого документа 
выдается краткое содержание и адрес местоположения полного текста. В первой лесятке 
мы нашли Мер-страничку журнала Vector: http;//www.vector.org.uk . 


В системе Exelte мы сначала поработали в режиме DIR, выйдя на раздел «Computing», a ^ 
потом запросили поиск по «APL Langugo» и получили 12640 документов, 
сортированных по % соответствия запросу. Здесь, как показалось, меньше материалов 
для программиста, но есть ссылки на мощные АПЛ-приложения, например для 
фондовых бирж. Об этом можно судить по кратким аннотациям к документам. 


Как ни странно, но через такие мошные SE как INFOSEEK и LYCOS найти 
информацию об АПЛ не удалось. Но нас заинтриговали результаты, полученные через 
слабенькую «Русскую машину поиска» http:/isearch.interrussia.com , которая на запрос 
«Арі» выдала 26 наименований и ссылок на русские серверы, среди которых заметна 
активность сервера BIJAH — www.ccas.ru по вопросам АПЛ, ссылки на АПЛ в связи с 
фондовыми биржами, а также ссылка на список литературы по информатике: 
httpilwew.informika.ruleng/accu/bookcase/books!S.html. Эта SE вместо аннотации 
выдает образцы текста, в которых обнаружено ключевое слово. 


Итак, надеемся, что нашу первую прогулку по Intmet можно назвать продуктивной H 
мы теперь имеем опорные точки для эффективного использования информационных 
ресурсов и возможностей коммуникации. 
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”Возникнет общий язык. единое средство общения всех людей" 
Основы марксистско-ленинской философии, стр. 278, Политиздат, 1980 


Из истории русского ПАУ 


По-видимому, предсказанию, вынесенному в эпиграф, не скоро еще предстоит сбыться. 
Вот и приходится мучиться с русским языком. Требование возможности использовать 
русские буквы одновременно с АПЛ-символами обусловлено, в первую очерель, 
необхолимостью создания приложений для русскоязычного пользователя, во-вторую, - 
целями обучения языку АПЛ, в третью очередь - удобством при комментировании 
программ. 

Любой интерпретатор АПЛ, как известно, может использовать одновременно только 
256 символов, расположенных в специальной переменной ПАУ. Таким образом, одна из 
проблем заключается в том, чтобы ПАУ одновременно содержал как АПЛ-символы, так 
и русские (и латинские) буквы. При этом следует учесть, что позиции латинских букв, 
цифр н АПЛ-символов в DAV практически зафиксированы, поскольку АПЛ- 
интерпретатор использует не начертание символа, а его позицию в DAV, 

Возможно, с введением нового стандарта для таблиц символов, шрифтов и ПАУ, 
позволяющего одновременно использовать 32768 символов, проблема булет сведена 
только к составлению таблицы соответствия клавиатуры и новой большой таблицы 
символов". Однако, пока приходится ограничивать себя 256-ю символами и 
договариваться об их расположении в DAV. 

Понятно. что перенос русскоязычных приложений с одной машины на другую, требует 
использования одинакового ПАУ. Поэтому, было бы неплохо договориться о русском 
станларте ПАУ. Как оказалось, это совсем непросто. Собственно, оказалось это уже 
давно - в восьмидесятых годах, а сейчас подтверждается. Русификацией современного 
АПЛ. насколько мне известно, независимо занимались в послелние 2-3 года 
А.Мирошников, А.Пахомов и автор этой заметки. Все они русифицировали 
Dyalog ANJI. Другие версии современного АПЛ либо нерусифицированы (APL2), либо 
русифицированы производителем (АРШ). После того. как оказалось, что ПАУ 
А.Мирошникова отличается от моего, я поспал Алексею предложение логовориться о 
станларте и опубликовать его. Возражения заключались в TOM, что слишком много кода 
уже написано с использованием ero (JA V. Tak что пока мы используем разные ПАУ и не 
можем без дополнительных ухишрений обмениваться кодами, Об опыте А.Пахомова 
мне ничего не известно, но судя по всему, здесь ситуация такая же. 

Сушествуют два приниипиально разных подхода к расположению русских букв в DAV. 
Первый заключается в том, чтобы добиться расположения в ПАУ всех русских букв в 
порялке русского алфавита (необязательно вплотную друг к другу). Второй заключается 
в том. чтобы включить в ПАУ только те русские буквы. которые по написанию не 
совпадают с латинскими буквами, а расположить их на тех местах, которые 
предназначены для символов национальных алфавитов H подчеркнутых латинских букв. 
Oba полхода имеют свои преимущества H недостатки. 


#7 Есть еще один вариант отмирания этой проблемы: все программисты, понимающие 
преимущества АПЛ перед другими языками программирования, перейдут на J. 
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Первый хорош тем, что упорядочивание русского текста по алфавиту можно 
производить с помощью унарной функции 4 или Y. Поэтому, наверное, этот способ так 
симпатичен А.Мирошникову и А.Пахомову, часто занимающимся сортировкой, 
Однако y этого способа есть несколько чедоститков. Во-первых, он требует 
дублирования в OAV одинаковых по написанию символов. Это плохо по двум 
причинам - а)остается меньше места для других символов и б)очень трудно 
распознавать ошибки, связанные с использованием одинаковых символов, имеющих 
разное значение (символы-омонимы). Во-вторых, некоторые русские буквы приходится 
ставить на такие места в АУ, которые объявлены производителем АПЛ резервными (в 
частности, не могут быть использованы в именах объектов). 

Второй полход (который был реализован А.Кондрашевым и Н.Пунтиковым в 
знаменитой русскоязычной “семерке") избавлен от недостатков первого подхода, но не 
обладает его преимуществом. Однако, отказ от этого преимущества не кажется мне 
слишком обремелительным. Дело в том, что в DyalogAPL существует бинарная 
функция сортировки, которая в качестве левого аргумента имеет алфавит, ло которому 
сортировка осуществляется. Совсем нетрудно указать лишний аргумент при 
упорядочивании данных. Вопрос о сравнении скорости унарной и бинарной сортировок 
остается открытым, но предварительные эксперименты показывают, что разница в 
скорости, хотя и составляет 2.5 раза, не зависит от размера сортируемого массива и 
длины алфавита. Конечно, для разноязычных текстов придется предпринимать 
дополнительные усилия. 

(Пожалуй, можно предложить компромиссный вариант, который, возможно, устроит 
сторонников как первого, Tak и второго подходов. Он заключается в TOM, чтобы 
расположить в [JAV все русские буквы в алфавитном порядке, но придать им 
существенно отличное от латинских начертание (например, сделать латинские 
прямыми, а русские - наклонными). При этом следует запретить использование 
нескольких русских букв (надо выбрать наименее употребительные) в именах объектов). 
Пока я предлагаю пойти по второму пути и расположить русские буквы 
специфического начертания (46 штук} в тех позициях DAV, которые могут быть 
использованы (имеется ввиду DyalogAPL) для составления имен объектов (обычно эти 
места заняты подчеркнутыми латинскими буквами и символами национального 
алфавита). В стандартной таблице DyalogAPL таких мест 60 штук. В качестве стандарта. 
русского OAV предлагается приведенная ниже таблица. 

Места, которые остались свободными после заполнения исходных 60-ти позиций 46-ю 
русскими буквами отмечены символом Ө. Позиции, объявленные производителем в 
качестве резервных, отмечены символом ®. Позиции, в которых находится символ ©, 
заняты в оригинальной таблице (то есть таблице, приведенной в документации Ha 
DyalogAPL) символамн, которые не употребляются в англоязычной версии 
{англоязычная расклалка клавиатуры HE связывает с этими символами никаких 
клавиш). 

Не существует никаких априорных предложений по поводу того, какие символы 
должны ставить русские любители АПЛ на места, отмеченные символами ©, ® и ©. 
Следует, однако заметить. что места с символами ® лучше вообще не трогать, а два 
других типа мест существенно отличаются друг от друга: символы одного типа могут 
быть использованы в именах, а символы другого - не могут. На первые можно было бы 
поставить, например. греческие (или белорусские) буквы, а на вторые - дополнительные 
символы псевдографики. 
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Устройство русификатора для DyalogAPL 
Сказанное выше относится к любой версии АПЛ. Далее мы будем говорить только о 
версии DyalogAPL, поскольку механизмы заполнения OAV и определения раскладок 
клавиатуры различны для разных версий. 
Когла символы выдаются на экран (или другое устройство вывода). их начертание 
занмствуется из какого-нибудь шрифта. Большинство служебных окон АПЛ-сеанса 
{окно протокола, окна редактирования и т.д.) устроены таким ‘образом. что их позиции 
могут содержать только символы из текущего значения ПАУ. поскольку эти позиини 
фактически представляют ссылки на соответствующие позиции DAV. Сами же 256 
позиций DAV представляют собой числа-ссылки на позиции текущего шрифта. Текущий 
шрифт можно изменить в любой момент сеанса (см. об этом ниже). а вот соответствие 
межлу позициями САУ и позициями шрифта устанавливается для сеанса олин раз - при 
вхоле в этот сеанс. Оно определяется специальным файлом, указываемым в разделе 
"арц" файла APL.INI, имеюшем расширение „РОТ и называемым "таблицей вывода" 
По умолчанию файлы таблиц вывода хранятся в подлиректории APLTRANS 
директории, в которой находится интерпретатор. 
Итак. чтобы одновременно видеть и использовать русские буквы н АПЛ-символы, они 
олновременно должны присутствовать в текущем DAV, а следовательно, и в 
используемом шрифте. Это означает, что мы должны иметь шрифт. который содержит 
все нужные нам символы: русские буквы, АЛЛ-символы. латинские буквы. цифры и. 
возможно, служебные символы (например, двойные кавычки). 


Создание шрифтов 
Следует оговориться, что здесь будет идти речь только о шрифтах лля Windows3.x. Дело 
в том. что Windows95 использует, по-видимому, несколько другие таблицы шрифтов. и, 
возможно, шрифты, созданные с помошью соответствующего программного 
обеспечения под Windows3.x не будут корректно работать под Windows95. 


1 Слезуст заметить, что таблицы вывода определяют и некоторые другие параметры 
сеанса. например. фоновые ивета различных полчиненных сеансу окон. 
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В Windows3.x шрифт является совокупностью начертаний (и правил масштабирования) 
256-ти символов. Сушествуст довольно много различных шрифтов, содержащих АПЛ- 
символы, как немасштабируемых (FON), так и масштабируемых? (ТТЕ). Естественно, 
однако, что западные производители не позаботятся о создании шрифта, одновременно 
содержащего как АПЛ-символы, так и русские буквы. 

Для создания русского масштабируемого АПЛ-шрифта я использовал программное 
обеспечение Fontographer3.5. В качестве исходного был выбран шрифт Dyalog АН TT, 
поставляемый фирмой Dyadic. С помощью Fontographer3.5 в этот шрифт на последние 
64 места, были вставлены русские буквы, заимствованные из шрифта Courier New Cyr, а 
также Ha буквы "Ё" и "ё" на позиции 169 и 185 соответсвенно. 

Следует заметить, что расположение русских букв в шрифте фактически 
предопределено. Дело в том, что перенос символов из АПЛ в другие приложения 
(например, с помощью буфера Windows), а также использование русских символов там. 
где они по умолчанию заимствуются из других шрифтов (например, из шрифта System 
при написании заголовков Windows-oKoH, создаваемых из АПЛ) требуст, чтобы русские 
буквы располагались на тех же местах русского АПЛ-шрифта, на которых они 
располагаются в шрифтах, используемых другими приложениями. Большинство же 
русских шрифтов Windows3.x располагают русские буквы в последних 64-х позициях. 
Поскольку некоторые русские буквы заняли места АПЛ-символов, последним пришлось 
поискать другие места в шрифте. В результате русский АПЛ-шрифт, который я назвал 
Dyalog Rus ТТ, выглядит следующим образом: 
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Здесь приведен вид шрифта Dyalog Rus TT, если просматривать его с помощью 
таблицы символов Windows3.x. Он практически совпадает с видом этого шрифта при 
просмотре с помошью? Fontographer3.5. Следует, однако заметить, что во втором 
случае среди первых 32-х символов можно увидеть символы псевдографики и АЗСИ- 
кавычку, 

Использование этого шрифта совместно с таблицей вывода WINRUS.DOT позволяет 
расположить в DAV символы таким образом, как это было предложено выше?! 

Шрифт Dyalog Rus TT является обыкновенным True Туре шрифтом (он должен быть 
установлен обычным способом B Windows) и может быть использован в любых 
Ў/іпйомз-приложениях (в частности, я использую ero при переносе текста из АПЛ в 
Word6.0). 


19 Заметим, что здесь речь будет идти о созлании масштабируемого шрифта, поскольку 
использование немасштабируемого шрифта порождает дополнительные трудности при 
перенесении ero в Word и при печати (см. мою статью в “ATI” Kny6", том 1, №3) 

? К сожалению, более поздний Fontographer4.! дает несколько другой вид этого 
шрифта. C этим связаны различные трудности использования шрифта noa Windows95. 
31 В действительности, в используемом мной ПАУ ner псевдографических символов. а на 
местах, отмеченных символами Ө, ® и © стоят разные символы, к которым не 
привязаны никакие клавиши. 
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Шрифты, используемые а сеансе 
Для того, чтобы АПЛ-сеанс использовал символы именно из шрифта Dyalog Rus ТТ 
следует указать этот шрифт в качестве свойства 'Font' для системного объекта OSE. 
Это можно сделать зручную из сеанса с помошью выражения 
"Üsz'Cxs 'Font' "Dyalog Rus ТТ" 
Bcaez за названием шрифта можно укатать ero атрибуты, например, размер. Если вы 
затем сохраните конфигурацию сеанса (с помощью команлы меню Session-Save), то при 
следующем входе в АПЛ будет использоваться именно этот шрифт. 
В принципе, все зависимые от окна сеанса объекты (потомки окна сеанса) должиь: иметь 
этот же шрифт. Если. однако, вдруг окажется, что какие-то объекты имеют другой 
шрифт. вы можете явно установить его для этих объектов. 
Шрифт. используемый для печатн на принтере объектов H3 АПЛ устанавливается в 
тексте функции OSE.WSDoc.GetPref. Вы также можете изменить в функции 
OSE WSDec.TimeStemp аттрибут LongDare на Date, если вас будет раздражать 
неправильная дата при псчати объектов из АПЛ. 


Раскладка клавиатуры 
Резкиня АПЛ-сеанса на нажатие клавиш клавиатуры определяется так называемой 
"таблицей ввода“. Таблицы ввода представляют собой АЗСИ-файлы, имеющие 
расширение .DIN и хранящиеся обычно в поддиректории APLKEYS директории, в 
которой находится интерпретатор. Таблица ввода связывает клавиши клавиатуры и их 
комбинации с позициями DÀ V, символы из которых появляются на экране при нажатии 
этих клавиш. Для того. чтобы с помошью клавиатуры можно было в АПЛ вводить 
русский текст. следует использовать соответствующую таблицу ввода (при наличии 
русских букв в OAV). 
Мы используем таблицу ввола RUSSIA.DIN, которая позволяет переходить на 
стандартную (ЙЦУКЕНУ русскую клавиатуру при нажатии серого плюса. Обратный 
перехол на латинский алфавит осушествляется так же. Статусная строка АПЛ-сеанса 
отображает сотояние клавиатуры. 


Резюме 
Итак. X18 того, чтобы использовать русские буквы в DyalogAPL (лаже в именах 
объектов) и иметь возможность переносить их между АПЛ и другими Windows- 
приложениями, нужно воспользоваться тремя файлами (которыс можно получить у 
автора): RUSTTL.TTF. WINRUS.DOT и RUSSIA.DIN. 
Первый из этих файлов содержит шрифт Dyalog Rus TT; cro удобно поместить вместе с 
другими шрифтами Windows и следуст установить обычным способом (например, с 
помошью Панели управления Windows). 
Второй файл следует поместить в подлерикторию APLTRANS. а третий - в 
подлиректорию APLKEYS директории. из которой запускается АПЛ-интерпретатор. 
В файле АРІ. ІМІ в разделе "арк" должна быть ссылка на WINRUS.DOT, a вразделе 
"aplk" - ссылка на RUSSIA.DIN (этого можно добиться либо из ссанса с помошью 
пункта меню Options-Configuration или, проще, - вручную). 
Используемый файл конфигурации сеанса (указываемый в разделе "session, file" файла 
APL.INI) должен содержать? в качестве свойства ' Ғопі' ecanca значение ' Dyalog Rus 
ТТ. (ом. выше), Лично я использую собственную конфигурацию BUZIN.DSE `. которая 
помимо этого свойства хранит еще и картинку АПЛ-клавиатуры. а также функцию 
просмотра структуры ланных - DISPLAY. 
В результате. в DyalogAPL v.7 можно чувствовать себя вполне русским, не хуже чем в 
ДОС -овской версии Manugistic/Obninsk. 


ы конфигурации не являются АЅСИ-файлами и указанные в них свойства сеанса 
лучше изменять из самого сеанса. 


Фа: 


АПЛ Клуб 


АПЛ `Квуб ежеквартальный журнал, зыпускающийся Российской 
`Ассоциацией пользователей языка программирования АПЛ. 
Универсальный язык программирования АПЛ - мощный инструмент 
решения любых задач. Сверхинтерактивность, гибкость модифи- 
N, кации кода, большое количество встроенных функций, работа с 
объектами произвольной структуры, современный интерфейс 
и, наконец, потрясающее изящество - для универсалов- 
программистов и самостоятельных ученых. 
№ Если Вы хотите узнать об АПЛ, получить ннформа- 
‘цнонные матерналы, если Вы заинтересованы B 
сотрудничестве, в том числе международном, 
b обращайтесь в Правление РосАПЛ: 
„mail: makeev@atom.ai.x-atom.net 
ел.КФакс: (095) 210-7783 
(095) 313-4931 


Организации поддерживающие 
АПЛ движение в России: 
Миннауки РФ 

Минатом РФ 

ВЦАН РФ 

ЦНИИАтом информ 

ФЭИ 

АО “Машиностроительный завод" 
АВЭК “ЭКСИМА” 

ЦИПК Минатома РФ 

AO “Инфострой“ 

Комбинат ЭХП 


